paper presentation
3/20/23
data(iris) iris %>% select(Sepal.Length, Sepal.Width, Species) %>% head() %>% kable()
Apply Causal Tree with simulation:
tree <- simulation %>% causalTree( y ~ x1 + x2 + x3 +x4, data = ., treatment = simulation$treatment, split.Rule = "CT", cv.option = "CT", split.Honest = T, cv.Honest = T, split.Bucket = F, xval = 5, cp = 0, minsize = 20, propensity = 0.5 )
Tree plot:
rpart.plot(tree)
Question: heterogeneous effects of college on reducing low-wage work for subgroups defined by different variables.
shiny app